클래스(S3)
a<-c(xleft=10, ybottom=7, xright=15, ytop=9)
class(a)<-"rectangle" # class 'rectangle' 정의
b<-list(center=c(10, 5), radius=5)
class(b)<-"circle" # class 'circle' 정
#메서드 정의
area<-function(x, ...){
UseMethod("area", x)
}
area.rectangle<-function(x, ...){
as.numeric((x["xright"]-x["xleft"])*(x["ytop"]-x["ybottom"]))
}
area.circle<-function(x, ...){
pi*x$radius^2
}
Generic Function area()함수가 rectangle 객체를 받으면, area.rectangle() 메서드가 실행되고,
circle 객체를 받으면, area.circle 객체가 실행된다.
methods("area") # generic function "area"에 정의되어 있는 함수 출력
getS3method("area", "circle") # 주어진 클래스에 맞는 method 출력
function(x, ...){
pi*x$radius^2
}
<bytecode: 0x1239da658>
# 생성자
new_circle<-function(x, y, r){
circle<-list(center=c(x, y), radius=r)
class(circle<-"circle"
circle
}